Carga de Paquetes
library(dplyr)
library(ggplot2)
library(plotly)
library(DT)
library(lubridate)
library(readxl)
Datos
delitos_oij <-
readxl::read_excel("C:/Users/corti/OneDrive/Documents/OIJ/estadisticaspoliciales2021.xls")
delitos_oij$Fecha <- as.Date(delitos_oij$Fecha, format("%Y/%m/%d"))
## Warning in as.POSIXlt.POSIXct(x, tz = tz): unknown timezone '%Y/%m/%d'
Tabla
## Warning in instance$preRenderHook(instance): It seems your data is too big
## for client-side DataTables. You may consider server-side processing: https://
## rstudio.github.io/DT/server.html
Graficos
Cantidad de delitos por tipo de delito
## # A tibble: 6 × 2
## Delito n
## <chr> <int>
## 1 ASALTO 9897
## 2 HOMICIDIO 537
## 3 HURTO 12162
## 4 ROBO 9812
## 5 ROBO DE VEHICULO 3099
## 6 TACHA DE VEHICULO 2842
Cantidad de delitos por mes
meses_delitos <- delitos_oij %>% mutate(Meses = lubridate::month(Fecha))
Cantidad de delitos por canton
Proporción de delitos por genero